home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 13, No. 01 (1992-01)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 13, No. 01 (1992-01)(MindCraft Publishing)(Side A)[a].po / TEASER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  672b  |  2 lines
  1. 2  HOME : FOR I = 1 TO 3: FOR J = 1 TO 3:S = 823 +I *256 +J *2: POKE S,185 -I *3 +J:S(I,J) = S: NEXT J,I:C = 1339: POKE C,53: VTAB 6: HTAB 16: PRINT "TEASER II":H = 0:T = 1: FOR X = 1 TO 1: FOR Q = 0 TO 1: FOR R = 0 TO 1: PRINT  CHR$(7 *(R  OR Q));: POKE 41,3: GET A$:A = 60 - ASC(A$): ON A =  -22 GOTO 2:R = A >2  AND A <12: NEXT :I% = A/3
  2. 3 J = 3 *I% -A +3:Q =  PEEK(S(I%,J)) <58: NEXT : FOR K =  -2 TO 2 +(A < >7):L =  SGN(K):S = S(I% +K -L,J +K -2 *L) *(K <3) +C *(K = 3):V =  PEEK(S):D =  SGN(V -76): POKE S,V -D *128:T = T +D: NEXT :H = H +1: VTAB 17: HTAB 20: PRINT H"  <R>ESTART":X = (T = 0) *8 +(T = 8  AND A = 7): NEXT : FLASH : PRINT  MID$ (" GENIUS!DUMMY",X,7)